JfiMES B. PENNV 11 

K. D. KOPPERT 12 

K. D. KOPPERT 15 

K. D. KOPPERT 17 

STEVE MflCGREGOR 19 

H. PHELPS GATES 20 

H. PHELPS GATES 26 



CONVERT - HEX, DEC, OCT, & BINflRV 
LIFE ■:: ASSEMBLER > 
LIFE 2 ( ASSEMBLER > 
LINE RENUMBERING < ASSEMBLERS- 
MULTIPLIES 16-BIT POS. NO. 
LEVEL II BASIC RENUMBERING 
KEYBOARD DEBOUNCER 



CHANGE TO BIOCHART BV RAY LUNKWITZ 

NEWSLETTER - VOL. 1, # 1 - PAGE 4 

620 fll«<<SIN<<Fl*F5>*. 0174533 >*-28> +30 ) 
630 A2=<<SIN<<F2+F6>*. 0174533 >*-30> +30 > 
640 A3=<<SIN<<F3*F7>*. O174533>*-30>+30:) 



THE BITPICKER'S TOOLBOX 

By Steve MacGregor, 3701 W tfethersf ield, Phoenix, Arizona 85029 

To cause your Level II T-BUG to make a copy of itself, type the 
following "punch" command: 

P 4380 497P 43C1 TBU G/ENTER / 

Before doing this, you may want to set up the register-save area 
(in locations 4825-483C) to something. Mine has the SP and PC 
set to 4980, and all other registers set to zero. 

To return to BASIC from T-BUG, one of the following will work;: 

J 0066 (to get to the READY state) 

J M0 (to get to the MEMORY SIZE? state) 



If you don't enter a BASIC program, or otherwise do something 
that wipes out TBUG, you can re-enter It by typing "SYSTEM", and 
then "/17345". 



Dear Gordon, 



Enclosed you will find a listing of a program that I find 
helpful. It's a modification of one published in a recent 
issue of KILOBAUD in an article by E. Peymer. Please note 
that my printer prints a bracket in place of the up arrow. 

I am writing this letter using the BLBCTWC PFNCIL and 
The TRS-232 interface unit sold by SMALL SYSTEMS SOFTWARE. 
The TRS-232 is bound to be the cheapest way to hook up a 
printer to the TRS-80. I am using an old Model 37 Teletype. 
Notice that it aives upper and lower case and allows for left 
and right Justification. ,1*11 bet the Teletype folks never 
had this application in mind, old Teletypes are currently 
going for about $500 which is about twice what they are worth. 
The interface costs <»39.95, I think. So for less than s550 
you can get into the orinter business. That sure beats the 
Radio shack way. 



Michael Shrayer's ELECTRIC PFNCIL is pretty steep at 
s100. Even so, it really is superb software. Ml hooked up 
you have a complete word processor which is probably the best 
non trivial use of a microprocessor that has been thought of 
so far. 

while I a-i plugging other people's products (as a 
satlsfie user) I might also mention that MICROCHESS by Peter 
Jennings is first class software, with all the junk for sale 
the good guys should get some credit. 

James B. Penny 
1537 Rama da 
Houston, Tx. 77062 



5 CLEAR (1 00 ) :CLS 

10 PRINT"THIS PROGRAM CONVERTS THE INPUT NUMBER TO COMMON BASES" 

20 PRINT"APPEND 3, 0, D, OR H TO THE , NUMBER THATJfOU INPUT* 

30 INPUT"ENTER THE NUMBER TO CONVERT (I.E. 123D)";NIS 

40 IFRIGHTs(NI$,1 )»"B"THEN 3I%»2:GOTO90 

50 IFRIGHTs(NIs,l) = ' , o"THEN BI%s8:GOTO90 

60 IFRIGHTS(NIs,1)»"d"tHEN BI%«10jGOTO90 

70 IFRIGHTs(NIS,1 )="h' , THEN BI%»1 6:GOTO90 

80 PRINT"PLEASE USE THE INDICATED SUBSCRIPTS SO I KNOW WHAT YOU 

85 GOTO30 WANT* 

90 PRINT HEX ;,; DECIMAL ;,; OCTAL ;,? BITORY 

100 L%»LEN(NIs):NIs=LEFT$(Nia,LJS-l) 

110 PRINT:BO%=16:GOSUBl80:PRINTNOs; , ; 

120 BOX»10:GOSUB180:PRINTNO$;,; 

130 BO%»8:GOSUB180:PRINTNO$; 

140 BO%=2:GOSUB190:PRINTTAB(46) ;NOs 

150 INPUT"NEXT NUMBFR TO BE CONVFRTFD";NIs:CLS:GOTO40 

160 'BASE CONVERSION SUBROUTINE 

170 'CONVERT TO DE<~I"AL 

180 LXaLEN(NId) 

190 DEC»0 

200 PWR%=0 

210 FORJ-L^TOlSTEP-1 

220 K%=ASC(MIDs(NI«,J,1 )) 

230 IFK%>64THFN« , *=*"»;-7 

240 v^»k%-43 

250 IFK^<BI?ANr>"*>-1TH"N300 

260 PRINT" INVALID INPUT FOR PASF"; 

270 PRINTFIX 

280 NO$»"?????" 

290 RETURN 

300 DEC=DEC+INT(K%*BI?[PWR%+.5) 

310 PWR%*PWR^+1 

320 NEXT J 

330 'CONNVERT DECIMAL TO BASE # 

340 H$»"0123456789AFCDEF" 

350 NOOS-" 

360 PWR%«LOG(DEC)/LOG(BO%) 

370 FORJ=PWRJ5TO0STEP-1 

380 XX=INT(BO%[J+.5) 

390 CH%=DEC/XX 

400 NOS=NOS+MID$(Hd,CH!?+1 .1 ) 

410 DEC«INT(DEC-CH%»XX+.5) 

420 NEXTJ TRS-88 USERS GROUP - NEWSLETTER - 

430 RETURN FEBRUflRV 1979, VOLUME 2, NUMBER 2 - PflGE 11 

440 END 



FOR YOUR 



TRS- 8© 

TapeTalh* magaeine 

TapeTalk a truly unique software 
publication for the first generation 
of computor pioneers, is a bi-month- 
ly "magazine^ exclusively for the 
TRS-80 system. 



All on cassette - just load it in ! 



CONTESTS • DRAWINGS- PRIZES 




WIN • Screen Printer 

• Expansion Interface 

• Level'll BASIC (ROM) 

• 16K Memory (RAM) 

• And others. 



Tape Talk Forum 

CompTinor'" 
Small SusJ ikm Advisor 
What'* New (Around tke 
TapeTalk Classified! 
The Came Room 
Tape Teaser's 



DECEMBER 26, 1973 



■y ■■ticripdow to TapeTalk fori 

D I year-U.S. $30.00 D 2 years-US. $54.00 

Charge my: D Visa D Master Charge 

Ca rd # 

Signature 

Name (print) : 

Address 

Clty_ 

State 



3fc 



Exp. date. 



Make Check 

or Money Order payable to 

_- TapeTalk 

r.O- Bo« 54014 
For COD Orders San |o»e CA 95 1 54 

Call Toll Free 1-8QO- 83S-1246 

■TJKJfl l> . projmci ofU ' u, kUl. Jiv 7*Jv (Vf. 



Zip 



MR QORDON. 



VOU CAN USE THIS IN VOUR NEWSLETTER IF VOU WANT. EVERVBODV 
SAYS THE TRS-80 MONITOP IS NOT STABLE SO HERE IS SOMETHING YOU 
CRN DO ABOUT IT! I HAD A HORIZONTAL WIGGLE WHEN THE LIGHT 
DIMMER IN MV DINNING ROOM WAS TURNED TO DIM' (FINDING THAT THE 
DIMMER WAS THE SOURCE OF THE PROBLEM IS ANOTHER STORV. ) I 
CHANGED ALL POWER SUPPLY FILTER CAPACITORS IN THE MONITOR 
WITHOUT ANY SUCCESS AFTER SOME WORK, MV FIX IS ADDING AN 
INDUCTOR IN SERIES WITH HOT SIDE OF THE AC LINE OF THE MONITOR. 
IT SEEMS TO BE 97;: EFFECTIVE AT FIXING THE PROBLEM. 

FOR THE INDUCTOR I WSED CENTER TAP TO END WINDING OF A 
12.6 "VOLT e 3 AMP FILMENT TRANSFORMER (PRIMARY NOT USED. > NOTE 
2 TO 3 'VOLTS OF LINE VOLTAGE ARE LOST USING THIS TRANSFORMER. 
I MOUNTED THE TRANSFORMER ON SIDE PANEL (NEAR HORZ TRANSFORMER) 
INSIDE THE MONITOR. THE ADDED INDUCTOR GIVES MUCH MORE NOISE 
* SPIKE SUPPRESSION TO THE MONITOR A SOLA HARMON I C -NET URAL I 2ED 
CONSTANT VOLITAGE TRANSFORMER (PART * 23-22-125) WILL PRIVIDE 
NEAR 1002 STABILV FOR THE MONITOR (WITH OR WITHOUT MY FIX) BUT 
WOULD COST $180 & LIP. 

I BUILT A TAPE CONTROL BOX WHICH I THINK IS BETTER. 
THEN CONTROL BOX INCLUDES THEN FOLLOWING 

1. SMALL VU METER TO USE TO SET TAPE VOLUME (VOLUME WILL 
VARY FROM TAPE RECORDER TO RECORDER) 

2. CLOAD SWITCH (SWITCH TO COMPUTER, OFF, OR BUILD IN SPEAKER) 

3. CSAVE SWITCH (SWITCH TO COMPUTER, OR OFF) 

4 MOTOR CONTROL SWITCH (COMPUTER TO MOTOR *, OR MOTOR ON) 

5. TRANSFER LIGHT (LED), ON » DATA TRANSFER 

* WHEN USING THIS TAPE CONTROL BOX THE COMPUTER'S RELAY 
HAS A MAX OF 28 MILLS BECOUSE THE COMPUTER DRIVER ONLY THE 
THE BASE OF TIP146 TRANSISTOR BY A 9V BATT. , 330 OHM RES, AND 
LED, ALL IN SERIES THE COLLECTOR OF TIP146 CONTROLS THE TAPE 
RECORDER MOTOR. THE LOWER CURRENT THRU THE COMPUTER RELAY WILL 
GREATLY HELP RELAY FROM STICKING AND THE COMPUTER FROM NEEDING 
SERVICING 

SEND A DOLLAR AND I WILL SEND YOU A SCHEMATIC OF MY 
CONTROL BOX. 

CONTACT ME IF YOU HAVE ANY QUESTIONS??? 

RUSSELL STARKEV 
855 EISENHOWER AVE. 
JASPER, INDIANA 47546 
(812) 482-1016 



THE 



BITPICKER'S TOOLBOX 



By Steve MacGregor, 3701 W Wethersf ield , Phoenix, Arizona 85029 

To get your TRS-80 to return to the "MEMORY SIZE?" question, type 
"SYSTEM" In response to the prompt, and then "/0", rather than 
turning the power off and back on again. Besides being faster, 
since you should wait a few seconds between turning the power off 
and turning it on, this method has the virtue of leaving the RAM 
intact, except for the locations set up by the initialization 
process. 
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DEAR GORDON, 

HERE ORE A COUPLE OF ASSEMBLER PROGRAMS. 
THE FIRST CALLED LIFE' STARTS AT 58 AND IS A VERSION OF 
CONWAY'S GAME OF LIFE USING A 64 X 16 BOARD. THE SECOND CALLED 
'LIFE2' AT 190 IS ANOTHER VERSION OF LIFE USING A 128 X 48 BOARD 
AND SET AND POINT SUBROUTINES. THE FIRST RUNS ABOUT 1 GENERATION 
PER SECOND, THE SECOND ABOUT 29 SECONDS PER GENERATION 

THE THIRD PROGRAM STARTING AT 299 IS A LINE RENUMBERING 
PROGRAM CALLED RENUM'. THIS PROGRAM SEEMS TO NEED RESET 
BEING PRESSED A FEW TIMES AFTER THE RENUMBERING (DON'T 
KNOW WHY). 

KEEP UP THE GOOD WORK. 

VOURS SINCERELY 
K. D. KOPPERT 



4569 


00109 




ORG 


4599H 


4C89 


99119 


IMAGE 


EOU 


4C90H 


3C89 


99129 


VIDEO 


EQU 


3C00H 


4026 


00130 


CURSOR 


EQU 


4020H 


4500 21003C 


00140 


LIFE 


LD 


HL, VIDEO; THIS VERSION LEVEL 2 


4503 222049 


90150 




LD 


(CURSOR), HL 


4506 010004 


99169 




LD 


BC>400H 


4509 1E20 


99179 




LD 


E, 20H 


450B 21004C 


99180 




LD 


HL, IMAGE 


450E 7B 


00190 


LP 


LD 


A, E ,SETS BOARD TO BLANKS 


450F 77 


00200 




LD 


(HL), A 


4510 23 


00218 




INC 


HL 


4511 0B 


00229 




DEC 


BC 


4512 78 


99239 




LD 


A,B 


4513 Bl 


00240 




OR 


C 


4514 C20E45 


00250 




JP 


NZ, LP 


4517 11003C 


00260 




LD 


DE, VIDEO; SETS SCREEN TO BLANK 


451A 21004C 


00279 




LD 


HL. IMAGE 


451D 010004 


00280 




LD 


BC, 499H 


4520 EDB0 


09299 




LDIR 




4522 219646 


09300 




LD 


HL, MSG1 ; DISPLAY OPENING MESSAGE 


4525 067D 


00319 




LD 


B,7DH 


4527 7E 


00329 


LP1 


LD 


A, <HL) 


4528 CD3308 


00330 




CALL 


33H 


452B 23 


90349 




INC 


HL 


452C 19F9 


00350 




DJNZ 


LP1 


452E CD4B46 


08360 




CALL 


INPDEC 


4531 329146 


00370 




LD 


(NOG), A 


4534 211847 


0038O 




LD 


HL, MSG2 ,DIPLAV MESSAGE 2 


4537 061B 


00390 




LD 


B, 1BH 


4539 7E 


00400 


LP2 


LD 


A, (HL) 


453A CD3300 


00418 




CALL 


33H 


453D 23 


99429 




INC 


HL 


453E 10F9 


00439 




DJNZ 


LP2 


4540 CD4646 


00440 




CALL 


INPDEC, INPUT NUMBER OF GENERATIONS 


4543 329246 


00450 




LD 


(NUM), A 


4546 213347 


00469 




LD 


HL, MSG3 


4549 0614 


00479 




LD 


B, 14H 


454B 7E 


00480 


LPS 


LD 


A, (HL) ..MESSAGE 3 


454C CD3300 


90490 




CALL 


33H 


454F 23 


00500 




INC 


HL 


4550 10F9 


00518 




DJNZ 


LP3 


4552 3A9246 


00520 


INPOS 


■CD 


A, (NUM), INPUT POSITIONS OF CELLS 


4555 FE00 


09530 




CP 


OH 


4557 CA8145 


00540 




JP 


Z, DISPLY 


455fl 3D 


00559 




DEC 


A 


455B 329246 


00569 




LD 


(NUM), A 


4S5E CD4B46 


00570 




CALL 


INPDEC 


4561 6F 


09588 




LD 


L-A 



4562 AF 


90599 




XOR 


A 




4563 67 


90600 




LD 


H,A 




4564 CD4B46 


00610 




CALL 


INPDEC 




4567 329946 


00620 




LD 


(TEMP), A 




456A FE00 


00639 




CP 


9H 




456C 280A 


00640 




JR 


Z,NOV 




456E 3A9046 


08650 




LD 


A. (TEMP) 




4571 47 


00660 




LD 


B.A 




4572 114000 


00670 




LD 


DE,49H 




4575 19 


00680 


LPY 


ADD 


HL, DE 




4576 10FD 


00690 




DJNZ 


LPY 




4578 11004C 


80700 


NOV 


LD 


DE, IMAGE 




457B 19 


80719 




ADD 


HL,DE 




457C 362A 


00720 




LD 


(HL),2AH 




457E C35245 


00730 




JP 


INPOS 




4581 11093C 


88748 


DISPLV 


LD 


DE, VIDEO; TRANSFER CURRENT GENERATION TO 


4584 21004C 


88758 




LD 


HL, IMAGE; TO SCREEN 


4587 010004 


00760 




LD 


BC, 400H 




458A EDB0 


00770 




LDIR 






458C DD210O3C 


00780 




LD 


IX, VIDEO; START SCAN FOR NEXT GENERATION 


4599 FD21004C 


00790 




LD 


IV, IMAGE 




4594 010004 


80800 




LD 


BC409H 




4597 AF 


00810 


NEXT 


XOR 


A 




4598 329346 


00820 




LD 


(FIRST), A 




459B 329446 


00838 




LD 


(FIRST+1),A 




459E 329546 


00840 




LD 


(FIRST+2),A 




45R1 329646 


09850 




LD 


(FIRST*3),A 




45A4 329746 


00860 




LD 


(FIRST+4),A 




45A7 329846 


98878 




LD 


(FIRST+5),A 




45AA 329946 


80380 




LD 


(FIRST+6), A 




45AD 329A46 


90899 




LD 


(FIRST+7),A 




45B0 DD7EC0 


90999 


STATE 


LD 


A, (IX+0C0H);FIND STATE OF SURROUNDING 


45B3 329446 


00919 




LD 


(FIRST*1),A;CELLS 


45B6 DD7E40 


99920 




LD 


A, (IX+64) 




45B9 329946 


90930 




LD 


(FIRST+6), A 




45BC 79 


00940 




LD 


FbC 




45BD E63F 


00950 




AND 


3FH ; TEST 


FOR LEFT HAND SIDE 


45BF FE00 


00960 




CP 


OH 




45C1 2812 


08978 




JR 


Z, RH 




45C3 DD7EBF 


90980 




LD 


A, (IX+0BFH) 




45C6 329346 


00990 




LD 


(FIRST), A 




45C9 DD7EFF 


91000 




LD 


A, (IX+0FFH) 




45CC 329646 


01018 




LD 


(FIRST+3),A 




45CF DD7E3F 


01020 




LD 


A, (IX+63) 




45D2 329846 


01939 




LD 


(FIRST+5), A 




45D5 79 


91940 


RH 


LD 


A,C 




45D6 E63F 


01050 




AND 


3FH ; TEST 


FOR RIGHT HAND SIDE 


4508 FE3F 


01060 




CP 


3FH 




45DA 2812 


91070 




JR 


Z, TEST 




45DC DD7EC1 


81989 




LD 


A, (IX+0C1H) 




45DF 329546 


91090 




LD 


(FIRST+2),A 




45E2 DD7E01 


01100 




LD 


A, (IX+i) 




45E5 329746 


91119 




LD 


(FIRST+4),A 




45E8 DD7E41 


01120 




LD 


A, (IX+65) 




45EB 229A46 


01130 




LD 


(FIRST+7),A 




45EE 78 


01140 


TEST 


LD 


A, B ; TEST 


FOR LAST LINE 


45EF FE00 


01150 




CP 


0H 




45F1 2015 


01169 




JR 


NZ,REM 




45F3 79 


81178 




LD 


FLC 




45F4 E680 


81138 




AND 


80H 
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45F6 2918 


01190 




JR 


NZ, REM 


45F8 79 


01200 




LD 


fl»C 


45F9 D648 


01210 




SUB 


40H 


45FB F28846 


01220 




JP 


P, REM 


45FE AF 


01230 




XOR 


ft 


45FF 329846 


01240 




LD 


(FIRST*5),A 


4682 329946 


01250 




LD 


(FIRST*6),A 


4605 329A46 


01268 




LD 


(FIRST*7),A 


4608 D9 


01270 


REM 


EXX 


.COUNT THE NUMBER OF NEIGHBOURS 


4689 ftF 


01280 




XOR 


ft 


468fi 57 


01290 




LD 


D.A 


460B 0688 


01300 




LD 


8, 8H 


4680 219346 


01310 




LD 


HL, FIRST 


4610 0E2A 


01320 




LD 


C.2AH 


4612 79 


01330 


STEST 


LD 


fl,C 


4613 BE 


01340 




CP 


(HL) 


4614 2081 


01350 




JR 


NZ, NINC 


4616 14 


01360 




INC 


D 


4617 23 


01370 


NINC 


INC 


ML 


4618 10F8 


81380 




DJNZ 


STEST 


461ft Tfl 


01390 




LD 


A,D 


461B D9 


01400 




EXX 




461C 57 


01410 




LD 


D,A i IF NUMBER OF NEIGHBOURS IS 3 


461D FE83 


01420 




CP 


3H -THEN CELL IS ft BIRTH CELL 


461F 2006 


01430 




JR 


NZ, NTEST 


4621 FD36002R 


01440 




LD 


(IY),2AH 


4625 1809 


01450 




JR 


ENDTES 


4627 7A 


01460 


NTEST 


LD 


fl,D i IF NUMBER OF NEIGHBOURS IS 2 


4628 FE02 


01470 




CP 


2H iCELL DOES NOT CHANGE 


462ft 2804 


01480 




JR 


Z, ENDTES 


462C FD36O020 


01490 




LD 


(IV),29H;SET TO BLLftNK IF NOT 2 OR 3 


4638 DD23 


01500 


ENDTES 


INC 


IX -NEXT CELL 


4632 FD23 


01510 




INC 


IV 


4634 0B 


01520 




DEC 


BC 


4635 78 


01530 




LD 


A,B .TEST IF ftLL CELLS DONE 


4636 Bl 


01540 




OR 


C 


4637 C29745 


01550 




JP 


NZ.NEXT 


463fl 3A9146 


01560 




LD 


ft, ( NOG) .TEST IF LAST GENERATION 


463D 47 


01570 




LD 


B, ft 


463E FE00 


01588 




CP 


0H 


4640 Cft0945 


01590 




JP 


Z.LIFE 


4643 78 


91600 




LD 


A,B .DECREMENT NUMBER OF GENERATIONS 


4644 3D 


91610 




DEC 


ft 


4645 329146 


01620 




LD 


(NOG), ft 


4648 C36H" 


01630 




JP 


DISPLV 


464B ftF 


01640 


INPOEC 


XOR 


A .SUBROUTINE TO INPUT A TWO DIGIT 


464C 329346 


81650 




LD 


(FIRST). A; DECIMAL NUMBER. NOTE NO CHECK 


464F 329446 


01660 




LD 


(FIRST*1),A;MADE TO SSEE IF DIGIT IS 


4652 CD2B00 


01678 


SL1 


CftLL 


2BH .DECIMAL 


4655 B7 


01688 




OR 


A 


4656 28Ffl 


01690 




JR 


Z. SL1 


4658 CD3300 


01700 




CftLL 


3SH 


465B 5F 


01710 




LD 


E, A 


465C E67F 


01720 




ftND 


7FH 


465E FE0D 


01730 




LP 


0OH 


4660 Cft7946 


01740 




JP 


Z, CONT 


4663 7B 


01750 




LD 


A,E 


4664 E67F 


01768 




ftND 


7FH 


4666 FE2C 


01770 




CP 


2CH 


4668 Cft7946 


01780 




JP 


Z, CONT 


466B 3ft9446 


01790 




LD 


ft, CFIRST+1) 


466E 329346 


01800 




LD 


(FIRST), ft 


4671 7B 


01810 




LD 


ft. E 


4672 0636 


01820 




sue 


:oh 



4674 


329446 




01838 




LD 


(FIRST+1), ft 






4677 


18D9 




01340 




JP 


SL1 








4679 


3R9346 




01850 CONT 


LD 


A, (FIRST) 








467C 


FE80 




01868 




CP 


0H 








467E 


288C 




01870 




JR 


Z, NFDIG 








4680 


3A934€ 




01888 




LD 


A, (PIRST) 








4683 


47 




01898 




LD 


B,A 








4684 


3A9446 




01900 




LD 


A, (FIRST+1) 






4687 


C60A 




01910 SL2 




ADD 


A,0AH 








4689 


10FC 




01920 




DJNZ 


SL2 








4688 


C9 




01930 




RET 










468C 


3A9446 




01940 NFDIG 


LD 


A, (FIRST+1 








468F 


C9 




0195© 




RET 










0001 






01960 TEMP 


DEFS 


1 








0001 






01970 NOG 




DEFS 


1 








8001 






01988 NUM 




DEFS 


1 








8008 






01998 FIRST 


DEFS 


8 














02080 MSG1 


DEFM 


'THIS IS A 


COMPUTER SIMULATION OF LIFE. 








02010 




DEFB 


8DH 














0202O 




DEFM 


'INPUT THE 


NUMBER OF GENERATIONS AND' 








82030 




DEFM 


' NUMBER IN 


FIRST GENERATION. ' 










02040 




DEFB 


BOH 














02050 




DEFM 


'NUMBER OF 


GENERATIONS? 












82060 MSG2 


DEFM 


'NUMBER IN 


FIRST GENERATION?' 










02070 MSG3 


DEFM 


'INPUT POSITIONS FIB' 












02080 




DEFB 


8DH 














02090 




END 


LIFE 








SL2 


4687 






STATE 


4980 




LP2 


4539 


NFDIG 468C 






FIRST 


4693 




MSG2 


4718 


CONT 


4679 






NEXT 


4597 




NOG 


4691 


SL1 


4652 






LPV 


4575 




INPDEC 


464B 


ENDTES 4630 






NOV 


4578 




LP1 


4527 


NTEST 4627 






TEMP 


4698 




NSG1 


469B 


NINC 


4617 






DISPLV 4581 




LP 


456E 


STEST 4612 






INPOS 


4552 




LIFE 


4see 


REM 


4608 






LP3 


454B 




CURSOR 


4020 


TEST 


45EE 






M5G3 


4733 




VIDEO 


3C00 


RH 


45D5 






NUM 


4692 




IMAGE 


4C00 




1 WW . 


21 


00 3C 22 


20 


40 01 00 


04 IE 20 21 


00 4C 7B 77 








A010: 


23 


08 78 Bl 


C2 


0E A0 11 


00 3C 21 00 


4C 01 00 04 








A020 


ED 


B0 21 96 


Al 


86 70 7E 


CD 33 00 23 


10 F9 CD 4B 








A030: 


ftl 


32 91 ftl 


21 


18 A2 06 


IB 7E CD 33 


00 23 IB F9 








A040: 


CD 


4B ftl 32 


92 


Al 21 33 


A2 06 14 7E 


CD 33 00 23 








A050: 


10 


F9 3fl 92 


Al 


FE 00 CA 


81 A0 3D 32 


92 Al CD 4B 








A060: 


Hi 


6F AF 67 


CD 


48 Al 32 


98 Al FE 00 


28 8A 3A 98 








A070: 


ftl 


47 11 48 


80 


19 18 FD 


11 60 4C 13 


36 2A C3 52 








ftO80: 


ft0 


11 80 3C 


21 


00 4C 01 


ee 04 ed Be 


DD 21 00 3C 








A090: 


FD 


21 80 4C 


01 


00 04 AF 


32 93 Al 32 


94 Al 32 95 








A0A0: 


ftl 


32 96 Al 


32 


97 Al 32 


98 Al 32 99 


Al 32 9A Al 








AO80: 


DO 


7E C0 32 


94 


Al DO 7E 


48 32 99 Al 


79 E6 3F FE 








men. 


80 


28 12 DD 


7E 


BF 32 93 


Al DO 7E FF 


32 96 Al DO 








ft0D0: 


7E 


3F 32 98 


ftl 


79 E6 3F 


FE 3F 28 12 


DO 7E CI 32 








A0E0: 


95 


Al DD 7E 


01 


32 97 Al 


DD 7E 41 32 


9A Al 78 FE 








ft8F0: 


00 


20 15 79 


E6 


80 20 10 


79 D6 40 F2 


08 Al AF 32 








ftl00: 


98 


Al 32 99 


ftl 


32 9A Al 


D9 AF 57 06 


08 21 93 Al 








ftllO: 


&E 


2A 79 BE 


20 


01 14 23 


10 F8 7A D9 


57 FE 83 20 








ftl28: 


06 


FD 36 00 


2A 


18 09 7A 


FE 02 28 04 


FD 36 0B 20 








ftl30: 


DC 


23 FD 23 OB 


78 Bl C2 


97 A0 3A 91 


Al 47 FE 00 
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A148 


Cfl 00 A0 


78 


30 


32 91 


Al C3 81 A0 AF 


32 


93 Al 32 


A150: 


94 fll CD 


26 


00 


B7 23 


FA CD 33 00 5F 


E6 


7F FE 00 


ftL60: 


Cft 79 fll 


7B 


E6 


7F FE 


2C Cfl 79 fll 3ft 


94 


fll 32 93 


Aire. 


fll 78 D6 


30 


32 


94 fll 


18 09 3fl 93 Al 


FE 


00 28 0C 


A180: 


3fl 93 fll 


4? 


:.ft 


94 fll 


C6 Ofl 10 FC C9 


3ft 


94 Al C9 


A190: 


C2 Cft OB 


OB 


OB 


OB 06 


DB DB OB DB 54 


43 


49 53 28 


A1A0: 


49 53 20 


41 


20 


43 4F 


4D 50 55 54 45 


52 


20 53 49 


A1B0: 


4D 55 4C 


41 


54 


49 4F 


4E 20 4F 46 20 


4C 


49 46 45 


A1C0: 


2E 00 49 


4E 


58 


55 54 


20 54 48 45 20 


4E 


55 4D 42 


A1D0: 


45 52 20 


4F 


46 


20 47 


45 4E 45 52 41 


54 


49 4F 4E 


A1E0. 


53 28 41 


4E 


44 


20 4E 


55 40 42 45 52 


20 


49 4E 20 


A1F0: 


46 49 52 


53 


54 


20 47 


45 4E 45 52 41 


54 


49 4F 4E 


A2O0: 


2E 00 4E 


55 


40 


42 45 


52 20 4F 46 20 


47 


45 4E 45 


A218: 


52 41 54 


49 


4F 


4E 53 


3F 4E 55 4D 42 


45 


52 20 49 


A220: 


4E 20 46 


49 


52 


53 54 


20 47 45 4E 45 


52 


41 54 49 


A238: 


4F 4E 3F 


49 


4E 


50 55 


54 20 50 4F 53 


49 


54 49 4F 


A240: 


4E 53 29 


41 


2C 


42 0D 








4560 


00100 






ORG 


4500H 






4C00 


00110 IMAGE 


EQU 


4C00H 






X00 


00120 VIDEO 


EQU 


3CO0H 






4628 


00130 CURSOR 


EQU 


4020H 






4500 21003C 


00140 LIFE 




LO 


HL, VIDEO 






4503 222840 


00150 






LD 


(CURSOR), HL 






4506 3E0E 


00160 






LD 


A, 0EH 






4508 CD330O 


00170 






CALL 


33H 






4500 010004 


00180 






LD 


BC.400H 






450E 1E80 


00190 






LD 


E, 80H 






4510 21804C 


00200 






LD 


HL, IMAGE 






4513 78 


00210 LP 




LD 


R.E 






4514 77 


00220 






LD 


(HL),fl 






4515 23 


O0230 






INC 


HL 






4516 08 


0024O 






DEC 


BC 






4517 78 


0025O 






LD 


A, 8 






4518 Bl 


00260 






OR 


C 






4513 C21345 


00270 






JP 


NZ, LP 






451C 11003C 


00288 






LO 


DE, VIDEO 






451F 21004C 


00290 






LD 


HL, IMAGE 






4522 810004 


00300 






LD 


BC, 4O0H 






4525 ED60 


00310 






LOIR 








4527 21EF46 


00320 


, 




LO 


HL,MSG1 ,DISPLAV OPENING MESSAGE 


452R 067D 


0O330 






LO 


B, 7DH 






452C 7E 


00340 LP1 




LD 


ft, <HL) 






452D CD3300 


00350 






CALL 


33H 






4538 23 


00360 






INC 


HL 






4531 10F9 


00370 






DJNZ 


LP1 






4533 CDfl246 


00380 






CALL 


INPDEC 






4536 32E846 


0O390 






LO 


(NOG), ft 






4539 216C47 


00400 






LO 


HL, MSG2 ,OIPLRV 


MESSAGE 2 


453C 8618 


00410 






LO 


B, 1BH 






4S3E 7E 


00420 LP2 




LD 


ft, (HL) 






453F CD3308 


00430 






CALL 


33H 






4542 23 


00440 






INC 


HL 






4543 19F9 


00450 






DJNZ 


LP2 






4545 CDA246 


00460 






CALL 


INPDEC 






4548 32E946 


00470 






LD 


(NUM), ft 






4548 218747 


00480 






LO 


HL, MSG3 






454E 8614 


00490 






LD 


B, 14H 






4559 7E 


00500 LP3 




LD 


ft, (HL) 






4551 CD3300 


00510 






CALL 


33H 






4554 23 


00520 






INC 


HL 






4555 18F9 


00530 






DJNZ 


LP3 






4557 3flE946 


00540 INPOS 


LO 


A, (NUM) 






455fl FE80 


0O550 






CP 


OH 






455C CA7845 


OO560 






JP 


Z, OISPLV 







455F 3D 


08570 


DEC 


A 


4560 32E946 


00580 


LO 


(NUM). A 


4563 CDA246 


0059O 


CALL 


INPDEC 


4566 326048 


00600 


LO 


(X),A 


4569 CDA246 


00610 


CALL 


INPDEC 


456C 326148 


08620 


LD 


<V),A 


456F CD9647 


00630 


CALL 


PIXEL 


4572 CDE147 


00640 


CALL 


SET 


4575 C35745 


08650 


JP 


INPOS 


4578 11003C 


08660 DISPLV 


LD 


DE, VIDEO 


4578 21894C 


00670 


LD 


HL, IMAGE 


457E 010004 


00680 


LO 


BC.400H 


4581 ED80 


00690 


LOIR 




4583 21004C 


00700 


LD 


HL, IMAGE 


4586 810804 


00710 


LD 


6C, 400H 


4589 3E80 


00720 CLS 


LO 


ft,80H 


4586 77 


80730 


LD 


<HL),A 


458C 23 


00746 


INC 


HL 


458D 88 


00750 


DEC 


BC 


458E 78 


00760 


LD 


A, 6 


458F 61 


00770 


OR 


C 


4598 28F7 


00788 


JR 


NZ,CLS 


4592 3E81 


00790 


LD 


A, 1 


4594 32ED46 


08800 


LD 


(KOUNTY), A 


4597 3E01 


00818 VLOOP 


LD 


fl»l 


4599 32EC46 


80820 


LD 


(KOUNTX),fl 


459C 3AEC46 


00838 XLOOP 


LO 


A, (KOUNTX) 


459F 3D 


00848 


DEC 


A 


45A0 326048 


00858 


LD 


(X>,fl 


45fl3 3AED46 


00868 


LO 


A, (KOUNTV) 


45ft6 3D 


00878 


DEC 


A 


45A7 326148 


00880 


LD 


(V),A 


45flfl CD9847 


00898 


CALL 


PIXEL 


45flD CD2148 


xK&cflo 


CALL 


POINT 


45B0 32EE46 


00910 


LD 


(NEIGHD).A 


45B3 3A6048 


00920 


LO 


A,<X) 


45B6 3C 


00930 


INC 


A 


45B7 326048 


00940 


LD 


(X), A 


45BA CD9847 


00950 


CALL 


PIXEL 


45B0 CD2148 


O0960 


CALL 


POINT 


45C8 DD21EE46 


90972 


LD 


IX, NEIGHD 


45C4 OD8600 


00988 


ADD 


ft, (IX) 


45C7 32EE46 


00990 


LO 


(NEIGHD), ft 


45CA 3A6048 


01000 


LD 


ft <X> 


45CD 3C 


01010 


INC 


A 


45CE 326048 


01020 


LD 


<X),A 


45D1 CD9647 


01030 


CALL 


PIXEL 


45D4 CD2148 


01040 


CALL 


POINT 


45D7 DO8600 


01050 


ADD 


A, (IX) 


45Dfl 32EE46 


01060 


LD 


(NEIGHD), A 


45DD 3A6048 


01070 


LD 


A, <X> 


45E0 3D 


01088 


DEC 


A 


45E1 3D 


01090 


DEC 


ft 


45E2 326048 


01100 


LD 


(X), A 


45E5 3A6148 


01110 


LD 


A, (V) 


45E8 3C 


01128 


INC 


A 


45E9 326148 


01130 


LD 


(V),fl 


45EC CD9B47 


01140 


CALL 


PIXEL 


45EF CD2148 


01150 


CALL 


POINT 


45F2 DD8600 


01160 


ADD 


A, (IX) 
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45F5 22EE46 


81170 


LD 


(NEIGHD V. A 


45F8 2fl6843 


81180 


LD 


A, (X) 


45FB 3C 


01190 


INC 


A 


45FC 3C 


01200 


INC 


A 


45FD 326048 


81218 


LD 


(X),A 


4680 CD9B4? 


01220 


CALL 


PIXEL 


4683 CD2148 


01220 


CALL 


POINT 


4606 DD8680 


01240 


ADD 


A, (IX) 


4689 32EE46 


01250 


LD 


(NEIGHD), fl 


460C 3R6048 


01260 


LD 


A, (X) 


460F 3D 


81270 


DEC 


A 


4618 3D 


01280 


DEC 


A 


4611 326048 


81298 


LD 


<X>. A 


4614 3fl6148 


01300 


LD 


A, (V) 


461? 3C 


01310 


INC 


A 


4618 326148 


01320 


LD 


(V),A 


461B CD9B47 


01330 


CALL 


PIXEL 


461E CD2148 


01340 


CALL 


POINT 


4621 DO8600 


01350 


ADD 


a (IX) 


4624 32EE46 


01360 


LD 


(NEIGHD), A 


4627 3R6848 


01370 


LD 


A, (X) 


4628 3C 


01380 


INC 


A 


4626 326848 


01398 


LD 


(X),A 


462E CD9B4? 


01400 


CALL 


PIXEL 


4631 CD2148 


01410 


CALL 


POINT 


4634 DD8600 


01420 


ADD 


A, (IX) 


4637 32EE46 


01430 


LD 


(NEIGHD), A 


463fl 3R6848 


01440 


LD 


R, <X> 


463D 3C 


01450 


INC 


A 


463E 326848 


01460 


LD 


(X),fl 


4641 CD9B47 


01478 


CALL 


PIXEL 


4644 CD2148 


81480 


CALL 


POINT 


4647 DD8600 


01490 


ADD 


A, <IX) 


464A 32EE46 


01500 


LD 


(NEIGHD), fl 


464D 3AEC46 


01510 


LD 


A, (KOUNTX) 


4650 326048 


01520 


LD 


(X), A 


4653 3AED46 


01530 


LD 


A, (KOUNTV) 


4656 326148 


01540 


LD 


(V),fl 


4659 3REE46 


01550 


LD 


fl, (NEIGHD) 


465C FE83 


01560 


CP 


3 


465E 2808 


01570 


JR 


NZ, NOBIRF 


4668 CD9B47 


01580 


CALL 


PIXEL 


4663 CDE147 


01590 


CALL 


SET 


4666 1811 


01600 


JR 


ENDXLP 


4668 FE82 


01618 NOBIRF 


CP 


2 


4660*2000 


01620 


JR 


NZ, ENDXLP 


466C CD9647 


81630 


CALL 


PIXEL 


466F CD2148 


01640 


CALL 


POINT 


4672 FE81 


01650 


CP 


1 


4674 2003 


01660 


JR 


NZ, ENDXLP 


4676 CDE147 


01670 


CALL 


SET 


4679 3AEC46 


01688 ENDXLP 


LD 


A, (KOUNTX ) 


467C 3C 


01690 


INC 


A 


467D 32EC46 


01708 


LD 


(KOUNTX). A 


4680 FE7F 


01710 


CP 


127 


4682 C29C45 


81720 


JP 


NZ, XLOOP 


4685 3RED46 


81730 ENDVLP 


LD 


A, (KOUNTV) 


4688 3C 


01740 


INC 


A 


4689 32ED46 


81750 


LD 


(KOUNTV), A 


468C FE2F 


81768 


CP 


47 


468E C29745 


01770 


JP 


NZ, VLOOP 


4691 3RE846 


01730 


LD* 


A, (NOG) 


4694 47 


01790 


LD 


B, A 


4695 FE80 


01800 


CP 


0H 



82250 
82260 
82270 
82280 
82290 
82300 
82310 
02220 
92330 



4697 
469A 
469B 
469C 
469F 
46R2 
46A3 
46fl6 
46A9 
46 AC 
46AD 
46AF 
46B2 
46B3 
46B5 
46B7 
46BA 
46BB 
46BD 
46BF 
46C2 
46C5 
46C8 
46C9 
46CB 
46CE 
46D0 
46D3 
46D5 
46D7 
46DA 
46DB 
46DE 
46E8 
46E2 
46E3 
46E6 

0001 
0081 
0001 

OO02 

8001 
0001 
0301 

MSG1 



CA0045 

78 

3D 

22E846 

C37845 

AF 

22EA46 

32EB46 

CD2B0O 

B7 

28FA 

CD2300 

5F 

E67F 

FE0D 

CAD046 

7B 

E67F 

FE2C 

CAD046 

3AEB46 

32EA46 

7B 

D630 

32EB46 

18D9 

3AEA46 

FE0O 

280C 

3AEA46 

47 

3AEB46 

C60A 

10FC 

C9 

3AEB46 

C9 



MSG2 
MSG3 

4796 
479C 
479F 
47A2 
47A5 
47A? 
47A9 
47AA 
47AC 
47AF 



DEFM 
DEFB 
DEFM 
DEFM 
DEFB 
DEFM 
DEFM 
DEFM 
DEFB 

AF 

226248 

226243 

3A6048 

CB3F 

3007 

57 

3E01 

326248 

7A 



01810 

01828 
01820 
01840 
01858 
81360 
01870 
01880 
01898 

01900 
01910 

01920 
01938 
01940 
01950 
01960 
01970 
01980 
81990 

02000 
02010 

82020 
02030 
02040 
82050 
02060 
02070 
02088 
82090 
82108 
02118 
02120 
02138 
82148 
0215O 
02160 
02178 
82188 
02190 
02200 
82210 
02220 
82230 
82240 



INPDEC 



SL1 



CONT 



5L2 



NFDIG 

TEMP 

NOG 

NUM 

FIRST 

KOUNTX 

KOUNTV 

NEIGHD 



JP 

LD 

DEC 

LD 

JP 

XOR 

LD 

LD 

CALL 

OR 

JR 

CALL 

LD 

AND 

CP 

JP 

LD 

AND 

CP 

JP 

LD 

LD 

LD 

SUB 

LD 

JR 

LD 

CP 

JR 

LD 

LD 

LD 

ADD 

DJNZ 

RET 

LD 

RET 

DEFS 

DEFS 

DEFS 

DEFS 

DEFS 

DEFS 

DEFS 



2, LIFE 

A,B 

A 

(NOG), A 

DISPLV 

A 

(FIRST'. A 

(FIRST+1), A 

2BH 

A 

Z, SL1 

33H 

E,A 

7FH 

BOH 

Z,CONT 

A, E 

7FH 

2CH 

Z, CONT 

fi, (FIRST+1) 

(FIRST), fl 

A, E 

38H 

(FIRST+1), fl 

SL1 

R, (FIRST) 

0H 

2, NFDIG 

fl, (FIRST) 

B,fl 

fl, (FIRST+1) 

A,0AH 

SL2 

fl, (FIRST+1) 

1 
1 

1 
2 
i 
1 
1 



'THIS IS fl COMPUTER SIMULATION OF LIFE. 

0DH 

'INPUT THE NUMBER OF GENERATIONS AND' 

' NUMBER IN FIRST GENERATION. ' 

80H 

'NUMBER OF GENERATIONS?' 

'NUMBER IN FIRST GENERATION?' 

'INPUT POSITIONS A, B' 

BOH 



02340 PIXEL 

0235O 

02360 

02370 

02380 

82390 

02400 

02410 

02420 

02430 



XOR 
LD 

LD 

LD 

SRL 

JR 

LD 

LD 

LD 

LD 



fl 

(XREM), fl 

(VREM), fl 

fl, (X) 

fl 

NC, NOCflRV 

D,A 

A, 1 

(XREM), A 

A,D 



47B0 


326448 


O2440 


NOCRRV 


LD 


(XCOMP>,A 


47B2 


1600 


82458 




LD 


D, 


47B5 


2A6148 


02460 




LD 


A,(V) 


47B8 


D682 


02470 


DIV3 


SUB 


3 


47BA 


FAC047 


02480 




JP 


M, REINC 


47BD 


14 


02498 




INC 


D 


47BE 


18F8 


82500 




JR 


DIV3 


47C8 


C683 


82510 


REINC 


ADD 


fl,3 


47C2 


326348 


02520 




LD 


(VREM),fl 


47C5 


Tfl 


02530 




LD 


A, D 


47C6 


326548 


02540 




LD 


(YCOMP), ft 


47C9 


2600 


02550 




LD 


H>0 


47CB 


3fl6548 


02560 




LD 


fl, (VCOMP) 


47CE 


6F 


02570 




LD 


L,fl 


47CF 


29 


82580 




ROD 


HL,HL 


47D8 


29 


82598 




ADD 


HL,HL 


47D1 


29 


02680 




ADD 


HL, HL 


47D2 


29 


02616 




ROD 


HL,HL 


47D3 


29 


82620 




ROD 


HL, HL 


47D4 


29 


02630 




ADD 


HL.HL 


47D5 


11003C 


02646 




LD 


DE, VIDEO 


47D8 


19 


82656 




ADD 


HL, DE 


47D9 


1600 


82660 




LD 


D, 


47DB 


3A6448 


02670 




LD 


fl, (XCOMP) 


47DE 


5F 


02680 




LD 


E, A 


47DF 


19 


62690 




ADD 


HL,DE 


47E0 C9 


62768 




RET 




47E1 


1E00 


62718 


SET 


LD 


E,6 


47E3 


1610 


62726 




LD 


D,16H 


47E5 


19 


62738 




ADD 


HL, DE 


47E6 


3A6348 


62740 




LD 


A, (VREM) 


47E9 


FE00 


82756 




CP 


8 


47EB 


2808 


62766 




JR 


Z, VZERO 


47ED 


FE81 


62778 




CP 


1 


47EF 


2813 


62788 




JR 


Z,VONE 


47F1 


FE82 


62790 




CP 


2 


47F3 


281E 


02866 




JR 


Z,VTWO 


47F5 


3R6248 


62816 


VZERO 


LD 


A, (XREM) 


47F8 


FE0O 


62828 




CP 


8 


47FR 


2004 


62838 




JR 


NZ.V6X1 


47FC 


CBC6 


62848 




SET 


8, (HL) 


47FE 


1828 


82850 




JR 


SUBEND 


4800 


CBCE 


82866 


V6X1 


SET 


1, (HL) 


4802 


181C 


62876 




JR 


SUBEND 


4884 


3A6248 


62886 


VONE 


LD 


A, (XREM) 


4887 


FE80 


62896 




CP 


6 


4889 


2004 


02960 




JR 


NZ, V1X1 


480B 


CBD6 


62918 




SET 


2, (HL) 


4880 


1811 


62926 




JR 


SUBEND 


488F 


CBDE 


62938 


V1X1 


SET 


3, (HL> 


4811 


1800 


62948 




JR 


SUBEND 


4813 


3A6248 


62956 


YTMO 


LD 


ft, (XREM) 


4816 


FE80 


62966 




CP 


6 


4818 


2004 


62978 




JR 


NZ,V2X1 


481R 


CBE6 


82986 




SET 


4, (HL) 


481C 


1802 


62996 




JR 


SUBEND 


481E 


CBEE 


03600 ' 


/2X1 


SET 


5, (HL) 


4828 


C9 


83818 ! 


SUBEND 


RET 




4821 


3R6348 


83626 1 


>OINT 


LD 


fl, (VREM) 


4824 


FE08 


83638 




CP 


8 


4826 


2806 


83648 




JR 


Z, VZEROP 
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4828 FE01 


83858 






CP 




1 




















4320 2811 


83868 






JR 




Z, VONEP 




PNTONE 


485D 




ENDXLP 


4679 


482C 181E 


83878 






JP 




VTWOP 






V2X1P 


4857 




NOBIRF 


4668 


482E 206248 


83888 


VZER0P 


LD 




0, 


CXREH) 




V1X1P 


4348 




NEIGHD 


46EE 


4831 FE96 


83898 






CP 




6 








PNTEND 


4359 




POINT 


4821 


4832 2984 


83180 






JR 




MZ 


V8X1P 




Y0X1P 


4839 




XLOOP 


459C 


4835 CB46 


82118 






BIT 




0/ 


(HL X 






VTWOP 


484C 




KOUNTX 


46EC 


4837 1828 


83128 






JR 




PNTEND 




VONEP 


483D 




VLOOP 


4597 


4839 CB4E 


82138 


V8X1P 


BIT 




i, 


HL 






VZEROP 


48 


2E 




KOUNTV 


46ED 


483B 181C 


83148 






JR 




PNTEND 




V2X1 


481E 




CLS 


4589 


483D 306248 


83158 


VONEP 


LD 




0, 


(XREM) 




V1X1 


430F 




SET 


47E1 


4848 FE88 


83160 






CP 




8 








SU6END 


4828 




PIXEL 


4796 


4842 2884 


83178 






JR 




NZ 


V1X1P 




V6X1 


4806 




V 


4861 


4844 CB56 


83188 






BIT 




2, 


(HL 






VTHO 


4313 




X 


4868 


4846 1811 


83198 






JR 




PNTEND 




vote 


4804 




DISPLV 


4578 


4848 C85E 


82208 


V1X1P 


BIT 




3* 


CHL) 




VZERO 


47F5 




INPOS 


4557 


4840 1880 


82218 






JR 




PNTEND 




VCOMP 


4365 




LP3 


4558 


484C 306248 


82228 


VTM0P 


LD 




0, 


CXREH) 




REINC 


47 


ce 




MSG3 


4787 


484F FE88 


82228 






CP 













DIV3 


47B8 




NUN 


46E9 


4851 2864 


82248 






JR 




NZ 


Y2X1P 




XCOHP 


4364 




LP2 


453E 


4853 C866 


82256 






BIT 




4, 


(HL) 




NOCORV 


4788 




MSG2 


476C 


4855 1882 


82268 






JR 




PNTEND 




VREM 


4863 




NOG 


46E8 


4857 CB6E 


82278 


V2X1P 


BIT 




5, 


(HL 






XREM 


4862 




INPDEC 


4602 


4859 2882 


83288 


PNTEHO 


JR 




NZ 


PNTONE 


TEMP 


46E7 




LP1 


452C 


4858 OF 


83298 






XOR 













SL2 


46DE 




MSG1 


46EF 


485C C9 


83386 






RET 












NFDIG 


46E3 




LP 


4513 


485D 3E81 


83318 


PNT0NE 


LD 




0,1 






CONT 


46D6 




LIFE 


4588 


485F C9 


83328 






RET 












SLi 


4609 




CURSOR 


4826 


8861 


83338 


X 




DEFS 




1 








FIRST 


46E0 




VIDEO 


3C66 


8661 


83348 


V 




DEFS 




1 








ENDVLP 


4685 




IHOGE 


4C88 


8661 


83350 


XREH 


DEFS 




1 




















8661 


83368 


VREM 


DEFS 




1 




















6861 


83378 


XC0MP 


DEFS 




1 




















8861 


83388 


VC0MP 


DEFS 




1 




















4568 


83390 






END 




LIFE 


















98668 TOTOL 


ERRORS 


































21 


00 
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20 


40 


3E 


0E 


CD 
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00 


04 


IE 
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21 


00 
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77 


23 


06 


78 


61 
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11 


00 


3C 


21 
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88 


4C 
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04 


ED 88 


21 


EF 


01 86 7D 


7E 


CD 


33 


00 






0038 


23 


10 


F9 CD 


02 


01 


32 


E3 


01 


21 6C 02 


06 


16 


7E 


CD 






0040: 


23 


00 


23 18 


F9 


CO 


02 


01 


32 


E9 01 21 


37 


A2 


06 


14 






0850: 


7E 


CD 


33 88 


23 


10 


F9 


3A 


E9 


01 FE 68 


CO 


78 


00 


3D 






0060: 


32 


E9 


01 CD 


A2 


01 


32 


60 


03 


CD 02 01 


22 


61 


03 


CD 






0878: 


96 


02 


CD El 


A2 


C3 


57 


00 


11 


86 3C 21 


00 


4C 


01 


00 






0888 


84 


ED 


88 21 


00 


4C 


01 


00 


04 


2E 88 77 


23 


0B 


78 


81 






0698 


28 


F7 
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32 


ED 


01 


3E 


01 


32 EC 01 


20 


EC 


01 


3D 






1 IV« w 


32 


68 
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01 


3D 


32 


61 


03 CD 98 


02 


CD 


21 


03 
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ntJOKJ 


32 


EE 


01 30 


60 


A3 


2C 


32 


60 


03 CD 9B 


02 


CD 


21 


A3 






O0C8: 


DO 


21 


EE 01 


DD 


S'6 


00 


^o 


EE 


01 30 68 


A3 


3C 


32 


60 






0608 


A3 


CD 


96 02 


CD 


21 


03 


DD 


36 


68 32 EE 


01 


30 


68 


02 






O0E8. 


2D 


3D 


32 60 


03 


20 


61 


A3 


3C 


32 61 03 


CD 


96 


02 


CD 






08F8 


21 


A3 


DD 86 


88 


32 


EE 


Al 


3A 


68 03 3C 


3C 




60 


A3 






0108 


CD 


96 


02 CD 


21 


03 


DO 


86 


00 


32 EE 01 


3A 


60 


03 


3D 






0118: 


2D 


32 


60 03 


3fl 


61 


03 


3C 


Zc 


61 03 CD 


96 


02 


CD 


21 






0128 


03 


DD 


36 86 


32 


EE 


01 


30 


60 


03 3C 32 


60 


03 


CD 


96 






0138. 


02 


CD 


21 03 


DD 


36 


00 


32 


EE 


01 30 68 


03 


3C 


32 


60 






0148 


A3 


CD 


9B 02 


CD 


21 


A3 


DD 


36 


86 32 EE 


01 


30 


EC 


01 






0158: 


32 


60 


03 30 


ED 


01 


32 


61 


03 


30 EE 01 


FE 


Q3 


20 


08 






0168: 


CD 


96 


02 CD 


El 


02 


IS 


11 


FE 


82 20 6D 


CD 


96 


02 


CD 






0178 


21 


A3 


FE 01 


20 


S3 


CD 


El 


A2 


30 EC 01 


3C 


32 


EC 


Al 






0188 


FE 


7F 


C2 9C 


A0 


30 


ED 


Al 


3C 


32 ED 01 


FE 


2F 


C2 


97 






0198: 


H0 


2fi 


E8 01 


47 


FE 


08 CO 88 


00 78 3D 


32 


E3 


01 


C3 






0108 


73 


08 


OF 32 


EA 


01 


32 


EB 


Al 


CD 2B 80 


B7 28 


FO 


CD 






01B8: 


33 


00 


5F E6 


7F 


FE 


OD 


Cfl 


M 


01 78 E6 


7F 


FE 


2C CO 





oice 

01D8 
01E6 
01F6 
0288 
0218 
0228 
0228 
0248 
025-0 
0268 
0278 
0238 
0298 
0208 
02B8 
02C6 
A2D6 
02E8 
02F8 
0206 
0218 
0328 
0338 
0348 
0356 



7D80 
7D06 
7D63 
7C66 
7D89 
7D0C 
7D6F 
7012 
7D15 
7D13 
7D1B 
7D1E 
7D21 
7D24 
7D27 
7D20 
7D2E 
7D31 
7D34 
7D37 
7D30 
7D3D 
7D48 
7D43 
7D46 
7D49 
7D4D 



D6 01 
20 EO 
16 FC 

48 49 
52 28 
4C 49 
4E 55 
54 49 

28 49 
D4 49 
47 45 
45 52 
52 41 

49 54 
62 02 
22 64 
C6 82 

29 29 
C9 IE 
12 FE 
CB CE 
DE 18 
C9 20 
02 FE 
FE 80 
88 28 



20 EB 01 
01 FE 80 
C9 20 EB 
52 28 49 
52 49 4D 
46 45 2E 
4D 42 45 
4F 4E 53 
4E 28 46 
4F 4E 2E 
4E 45 52 

28 49 4E 
54 49 4F 
49 4F 4E 
30 68 03 
03 16 86 
32 63 03 

29 29 29 
86 16 18 
82 28 IE 
18 1C 30 
80 30 62 
63 03 FE 
66 28 04 
28 84 CB 
84 CB 66 



32 EO 
28 8C 
01 C9 
53 26 

55 4C 
80 49 
52 26 
20 41 
49 52 
60 4E 
41 54 
28 46 
4E 2F 
52 28 
CB 2F 
20 61 
70 22 
11 08 
19 20 
30 62 
62 03 
03 FE 
86 28 
CB 46 

56 18 
18 62 



01 76 D6 
3A EA 01 
55 88 68 
41 28 43 
41 54 49 
4E 58 55 
4F 46 20 
4E 44 26 
53 54 28 
55 4D 42 
49 4F 4E 
49 52 53 
49 4E 50 
41 2C 42 
30 67 57 
03 D6 83 
65 03 26 
3C 19 16 
63 03 FE 
03 FE 88 
FE 68-28 
86 28 84 
06 FE 81 
18 26 CB 
11 CB 5E 
CB 6E 26 



38 32 
47 30 
88 86 
4F 4D 
4F 4E 
54 28 
47 45 
4E 55 
47 45 
45 52 

53 3F 

54 28 

55 54 
6D OF 
3E 81 
FO C8 
06 30 
86 30 
86 28 
28 84 
04 CB 
CB E6 
28 11 
4E 18 
13 80 
82 OF 



EB 01 
EB 01 
7F 2F 
56 55 
26 4F 
54 43 
4E 45 
4D 42 
4E 45 
28 4F 
4E 55 
47 45 
26 56 
32 62 
32 62 
02 14 
65 03 
64 03 
68 FE 
CB C6 
D6 18 
18 82 
18 IE 
1C 30 
30 62 
C9 3E 



18 D9 
C6 80 
80 54 
54 45 
46 26 
45 26 
52 41 

45 52 
52 41 

46 28 
4D 42 
4E 45 
4F 53 
03 32 
03 70 
18 F8 
6F 29 
5F 19 
01 28 
18 28 
11 CB 
CB EE 
30 62 
62 03 
03 FE 
01 C9 



21687D 

CDCD7D 

CDD97D 

22C67D 

21367D 

CDCD7D 

CDD97D 

22C27D 

21017D 

CDCD7D 

CDD97D 

22C47D 

21E942 

22C67D 

D020C67D 

D06661 

DD6E86 

22C67D 

D06683 

D06E62 

22BE7D 

20C67D 

DD7403 

DD7562 

ED4BC27D 

89 



60016 

00826 
80838 
60046 

08650 
00068 

66106 
66118 
66120 
86138 
66148 
08158 
06166 
66170 
60180 
00196 
00286 
66218 
86226 
80236 
86248 
06250 
80260 
66278 
88286 
06296 
68388 
68218 
86228 
86226 
66248 
86358 
86368 



;LINE RENUMBERING PROGROM. 

,LEVEL2 LINES HOVE THE FORMAT 

.ODORESS OF NEXT LINE, LINE NUMBER. STATEMENT, 

.FIRST LINE STORTS OT 42E9H 



ORG 22080 

RENUM LD HL, MSG1 

COLL MSGOUT 

COLL INPNUM 

LD <NLINE),HL 

LD HL, MSG2 

COLL MSGOUT 

COLL INPNUM 

LD CLXNO/HL 

LD HL, MSG2 

COLL MSGOUT 

COLL INPNUM 

LD (LLNUM), HL 

LD HL, 42E9H 

LD (NEXTL), HL 

6GNRNM LD IX, (NEXTL) 

LD H, <IX+1) 

LD L, <IX) 

LD (NEXTL), HL 

LD H, (IX+2) 

LD L, (IX+2) 

LD (TEMP)-HL 

LD HL, (NLINE) 

LD <IX*2),H 

LD (IX+2), L 

LD BC, (LINC) 

ODD HL,BC 
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;NEW FIRST LINE NO 

;NEW LINE INCREMENT 

-OLD LOST LINE NUMBER 
, ADDRESS OF NEXT LINE 



7D4E 22C07D 


80370 




LD 


(NLINE), HL 


7D51 DD21C47C 


08380 




LD 


IX, LLNUH 


7D55 3ABE7D 


00390 




LD 


A, (TEMP) 


7D58 ooeEee 


80400 




CP 


<IX) 


7D5B 28C0 


00416 




JR 


NZ,BGNRNM 


7050 3ABF7D 


00420 




LD 


A, (TEMP+i) 


7D60 DDBE01 


O0430 




CP 


(IX+1) 


7063 20C5 


00440 




JR 


NZ,BGNRNM 


7065 C3191A 


00450 




JP 


1A19H 




00468 


I1SG1 


DEFM 


'INPUT NEW FIRST LINE NUMBER? 0' 




80470 


MSG2 


OEFM 


'INPUT NEW LINE INCREMENT? 0' 




00488 


MSG3 


OEFM 


INPUT OLD LAST LINE NUMBER? 0' 




00490 


TEMP 


OEFS 


2 


8062 




NLINE 


OEFS 


2 


8862 


00510 


LINC 


OEFS 


2 


8802 


00520 


LLNUH 


OEFS 


2 


9082 


00530 


NEXTl 


OEFS 


2 


8085 


00540 


NUMBER 


OEFS 


5 


7DC0 7E 


80550 


HSGOUT 


LD 


A, (ML) ; SUBROUTINE TO DISPLAY M 


7DCE FE30 


00560 




CP 


30H 


7006 2806 


00570 




JR 


Z,EHSG 


7002 CD3300 


80580 




CALL 


33H 


7005 23 


0059v 




INC 


HL 


7006 18F5 


00600 




JR 


HSGOUT 


7008 C9 


00610 


EHSG 


RET 




7009 AF 


00620 


INPNUM 


XOR 


A ; SUBROUTINE TO INPUT A 5 


7DDA 32C870 


00630 




LD 


(NUMBER), A , DECIMAL NUMBER 


7000 32C97D 


00640 




LD 


(NUMBER+i), A 


7OE0 32CA7D 


00650 




LD 


(NUMBER+2),A 


7DE3 32C870 


00660 




LD 


(NUMBER+3),A 


70E6 32CC70 


96672 




LD 


(NUMBER+4),A 


7DE9 CO2B08 


00680 


LP1 


CALL 


2BH 


7DEC B7 


00690 




OR 


A 


70EO 28FA 


00700 




JR 


Z,LP1 


7DEF FE8D 


09710 




CP 


0OH 


70F1 282C 


00720 




JR 


Z,REST 


70F3 CO3390 


00730 




CALL 


33H 


7DF6 0630 


00740 




SUB 


30H 


70F8 32BE70 


00750 




LD 


(TEMP), A 


70FB 0021C87C 


00760 




LD 


IX, NUMBER 


7DFF DD7E03 


00770 




LD 


A, (IX+3) 


7E02 007784 


00780 




LD 


(IX*4),A 


7E05 OO7E02 


00790 




LD 


A, (IX+2) 


7E08 007783 


00890 


" 


LD 


(IX*3),A 


7E0B OO7E01 


00810 




LD 


A, (IX+1) 


7E0E 007702 


00828 




LD 


(IX+2),A 


7E11 OO7E09 


00830 




LD 


A, (IX) 


7E14 007701 


00840 




LD 


(IX*1>,A 


7E17 3ABE7D 


00858 




LD 


A, (TEMP) 


7E1A 007708 


00868 




LD 


(IX), A 


7E10 18CA 


00870 




JR 


LP1 


7E1F 3AC87D 


00838 


REST 


LD 


A, (NUMBER) 


7E22 6F 


00890 




to 


L,A 


7E23 flF 


00900 




XOR 


A 


7E24 67 


00910 




LD 


H, A 


7E25 3AC97D 


00920 




LD 


A, (NUMBER+1) 


7E28 FE00 


00930 




CP 





7E2A 2887 


00940 




JR 


Z, NN1 


7E2C 47 


00950 




LD 


B,A 


7E20 110800 


00960 




LO 


DE, 10 


7E38 19 


00978 


INL1 


ROD 


HL, DE 


7E31 18F0 


08980 




DJNZ 


INL1 


7E33 3ACA7D 


00990 


NN1 


LO 


A, (NUMBER+2) 


7E36 FE00 


01080 




CP 






7E38 2807 


01010 






JR 




Z,NN2 












INL4 


7E5A 


7E3A 47 


01020 






LD 




B,A 














FINIS 


7E5D 


7E3B 116400 


01030 






LD 




DE, 100 












INL3 


7E4C 


7E3E 19 


01040 


INL2 


ADO 




HL.DE 












NN3 


7E4F 


7E3F 18FD 


01050 






DJNZ 


INL2 














INL2 


7E3E 


7E41 3AC870 


01060 


NN2 


LO 




A, (NUMBER+3) 








NN2 


7E41 


7E44 FE00 


01870 






CP 



















INL1 


7E30 


7E46 280? 


01080 






JR 




Z,NN3 












NN1 


7E33 


7E48 47 


01090 






LD 




B,A 














REST 


7E1F 


7E49 11E883 


01100 






LD 




DE, 1008 












LP1 


70E9 


7E4C 19 


01110 


INL3 


ADD 




HL,DE 












EMSG 


7DD8 


7E4D 10FD 


01120 






DJNZ 


1NL3 














NUMBER 


7DC8 


7E4F 3ACC7D 


01130 


NN3 


LD 




A, (NUHBER+4) 








TEMP 


7DBE 


7E52 FE00 


01140 






CP 




e 














BGNRNM 


7D2A 


7E54 2807 


01150 






JR 




Z, FINIS 










NEXTL 


7DC6 


7E56 4? 


01160 






LO 




B,A 














LLNUM 


7DC4 


7E57 111027 


01170 






LD 




DE, 10000 










MSQ3 


7DA1 


7E5A 19 


01180 


INL4 


ADC 




HL/DE 












LINC 


7DC2 


7E5B 10FD 


01198 






DJNZ 


INL4 












M5G2 


7D86 


7E50 3E0D 


01208 


FINIS LD 




R,0OH 












NLINE 


7DC0 


7E5F CO3300 


01218 






CALL 


33H 














INPNUM 


7DD9 


7E62 C9 


01228 






RET 
















HSGOUT 


7DCD 


7000 


01238 






END 


RENUM 












M5G1 « 


7D68 


80000 TOTAL 


ERRORS 
























RENUM 
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21 
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2A 
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ED 
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09 


22 C9 






A050 




A0 


DO 


21 C4 


A0 


3A BE 


A0 


DD 


BE 


00 


29 CD 


3A 


BF A0 






A060 




DO 


BE 


01 20 


C5 


C3 19 


1A 


49 


4E 


50 


55 54 


20 


4E 45 






A070 




57 


20 


46 49 


52 


53 54 


20 


4C 


49 


4E 


45 29 


4E 


55 4D 






A080 




42 


45 


52 3F 


20 


30 49 


4E 


50 


55 


54 


29 4E 


45 


57 29 










4C 


49 


4E 45 


20 


49 4E 


43 


52 


45 


4D 


45 4E 


54 


3F 20 






A0A0 




30 


43 


4E 50 


55 


54 20 


4F 


4C 


44 


20 


4C 41 


53 


54 20 






A0B8 




4C 


49 


4E 45 


20 


4E 55 


4D 


42 


45 


52 


3F 20 


30 


21 A3 






A0C0 




DO 


21 


EE Al 


DO 


86 00 


32 


EE 


Al 


3A 


60 A3 


7E 


FE 30 






AOD0 




28 


06 


CO 33 


00 


23 18 


F5 


C9 


AF 


32 


C8 A0 


32 


C9 A0 






A0E0 




32 


CA 


A0 32 


CB 


A0 32 


CC 


A0 


CD 


2B 


09 B7 


28 


FA FE 






A9F0 




0D 


28 


2C CD 


33 


09 D6 


30 


32 


BE 


R8 


DD 21 


C3 


A0 DD 






A100 




7E 


03 


DD 7? 


04 


DD 7E 


02 


DO 


77 


03 


00 7E 


01 


DD 77 






Aiie 




02 


DD 


7E 00 


DO 


77 01 


3fl 


BE 


A0 


DO 


77 00 


18 


CA 3A 






A120 




C8 


A0 


6F AF 


6? 


3A C9 


A0 


FE 


00 


28 


07 47 


11 


0A 00 






A130 




19 


10 


FD 3A 


CA 


A9 FE 


08 


28 


07 


4? 


11 64 


00 


19 10 






FH40 




FD 


3fl 


CB A0 


FE 


00 28 


07 


47 


11 


E8 


83 19 


10 


FD 3A 






A150 




CC 


A0 


FE 00 


28 


87 47 


11 


18 


2? 


19 18 FD 


3E 


90 CD 






A160: 


33 


00 


C9 






















TRS-80 


BUS CONNECTORS FOP 


HOME-BREW 


NTERFACES 


TOP 


QUALITY 


VIKING 


AND 3-M, GOLD 


PLATED CONTFCTS. SOLOERLESS TYPE TERMINATED IN 


18" 40 


CONDUCTOR RIBBON 


CABLE $9 


95 


SOLDER 


TAIL 


rVPE *6 95 


PRICES POSTPAID 


NY RESIDENTS ADD 


SV. 


TAX 


APPLIED 


INVENTION, 


RD 2, 


RT 


. 21. HILLSDALE, 


NY 12529 INQUIRE 


ABOUT 


OUR PARALLEL PRINTER INTERFACE FOR LEVEL II. 
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TRS-88 QUflLITV SOFTUflRE 



LEVEL I. AND LEVEL II. 

•L IDM-I CflSSETTE DATA BASE *28 

•2. IMV-I INVENTORY CONTROL $2» 

•1 STOCK-I SECURITV INFO. »18. 

#4 BANK- I CHECK BALANCE $18. 

•5 FINANCE-I STOCK-I & BANK-I $15. 

DISKETTE. 

•12. MAIL-III HAILING LIST $25. 

•14. MORD-III HORD PROCESSOR $35 
•21. INV-III INVENTORV CONTROL *35. 
•22. KEV-III KEV RANDOM ACCESS *15 

PRICE INCLUDES POSTAGE, CASSETTER t, DOCU 



LEVEL II 

#11 WORD- I WORD PROCESSOR $25. 

#15. MAIL-I NAME AND ADDRESS $25. 

#16. SORT-I SORT UTILITV $18 

#17 STAT-I STATISTICS $19. 

#18 KEV- I KEV-ACCESS $18. 

•19 SALE- I SALE ANAL VS IS $18. 

•28. UTIL-I SORT-I t, KEV- I $16. 



HICRO ARCHITECT 
96 DOTHAN ST. 
ARLINGTON/ MA 82174 



SAVE ON YOUR 1978 TAXES WITH MICROTAX 78 

MICROTAX 78 for 16K TRS-80 Level II prepares your taxes in 
minutes. You receive 6 programs on a 60 minute cassette. 

Completes Form 1040 and Schedules A, B, C, D, and SE 
quickly and accurately. 

Eliminates missed deductions, math errors, and saves 
your time. 

Helps to optimize your 1978 tax return. 

User instructions included. $9.99. 

Micro Users Tax Booklet 78 shows how to slash taxes. 
Learn how to: 

Claim your micro as a deduction. 

Take a $40 to $400 tax credit. 

Capitalize on IRS regulations. 

Many illustrations, examples and much more. $4.99. 

SAVE $2.00. ORDER BOTH FOR $12.98. 
Send check or money order to 
GEORGE CLISHAM SOFTWARE 
PO Box 1172 
Duxbury, Mass 02332 
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TRS-80 INPUT/OUTPUT CONTROL 



I talked my boss into purchasing a TRS-80 Level II 
for use as an accept/re Jeot test fixture on our assembly 
line (PWB assemblies). As a result of my efforts we now 
have 1± of them working full time with an average inor^ase 
in throughput of 3005S. 

In the last year I have gained a lot of knowledge 
about interfacing the TRS-80 to the outside world and would 
like to share that experience with your readers. Please 
have interested personnel send a self addressed stamped 
envelope to me for information. 

I have developed an in-expensive I/O interface module 
for operating and controling motors, relays, lights, etc. 
It will accept I4. input a (arranged in BCD format for 16 comb- 
inations)and up to 16 independent outputs. The unit is 
complete with self contained power supply and interface 
cable. For Level II only (does not require expansion interface) 
The price including shipping is $35,00 in kit form, or $50.00 
completely wired and tested. Write for details or send Check 
or Money Order. Quantities limited. 

I also h?ve a schematic for building an in-expensive 
(cheap) sound interface. Send SASE and specify Level I or II. 

Send all inquiries to: 

Prank Polimene 
1 O Shoreham Ct. 
Baltimore, Md. 21236 



THE 



BITPICKER 



TOOLBOX 



By Steve MacGregor, 3701 W Wethersfleld, Phoenix, Arizona 85029 

This routine multiplies the 16-blt positive number in BC by the 
16-blt positive number in DE, and returns a 32-blt result, with 
the high-order 16 bits in DE and the low-order 16 bits in HL. 
The AP, BC, IX, and IY registers are returned unaltered. 



4980 


P5 


MULT 


PUSH 


AP 


4981 


3E10 




LD 


A, 16 


4983 


210000 




LD 


HL.0 


4986 


29 


M0 


ADD 


HL.HL 


4987 


EB 




EX 


DE.HL 


4988 


ED6A 




ADC 


HL.HL 
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EB 




EX 


DE,HL 


498B 


3/^4 




JR 


NCM1 
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09 
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HL.BC 
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3001 




JR 
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13 
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DE 
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Ml 


DEC 
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4992 


20F2 




JR 


NZ.M0 


4994 


PI 




POP 


AP 


4995 


C9 




RET 
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•LIFE* *LIPE* ♦LIFE* *LIPE» *LIPE* «LIFE* »LIFE* 

This program displays a 64x48 array of cells, 
and computes over one hundred generations per 
minute. It is written in Z-80 machine-language 
for a Level II TRS-30 with 4K or more of RAM. 

Available for $3 postpaid from 

Steve MacGregor 
3701 W Wethersfield 
Phoenix, AZ 35029 

»LIFE» *LIFE* *LIFE* *LIFE» *LIFE* *LIFE* *LIFE* 



January 27. 1979 

R . Gordon Lloyd 
7554 South** te 3d. 
Payettevllle, NC 28304 

Dear 3ob (and User's Group) — 

Enclosed Is a program (in 3ASIC!) which renumbers Level II 
BASIC programs. In Level II, each BASIC line is preceded 
by 4 bytes t a 2-byte pointer to the next line, then 2 bytes 
which contain the line number. 16548-9 contain the address 
of the start of program text: 16633-4 the start address of 
simple variables j 16637-8 the start of free memory (see page 
D/2 In Level II Kanual ) . 

To renumber a program with BASIC, you rcust fool the computer 
Into loading It into high memory (above 22000d), as follows i 

POKE 16548, 2^10 

POKE 16549,85 

POKE 21999,0 

NEW (PriINT M5M now elves 10701 In 16K) 

CLOAD the program which you want to renumber 

Now enter SYSTEM, then /0 (co-rputer replies "KEMCAY SI^E?" ) . 
Press Enter, CLOAD (or type) the renumbering program, and rtUN. 
When It's done (several rrlr.utes for a long program), it will 
type two FOKE Instructions which you rrust then enter from the 
keyboard; then you type CLEAR. You can now LIST, CSAVE, and 
RUN the renumbered program. To restore normal operation with 
full memory, enter SYSTEM and /0. 

Note 1 all line numbers (new and old) iust be less than 32?68. 
The program Is set up for 16K (non-disk). A little editing 
will squeeze It Into 4K or adapt It for disk (these are left 
as exercises for the reader...) 

Sincerely, 

H. Phelps Gates 

6 Crestwood Tr. Pk. - rft. 4 

Chacel Hill 

;;c 27514 
(9l9)-967-5193 



18 'LEVEL II BflSIC RENUMBERING 

20 'PHELPS GATES 

38 '6 CRESTMOOD TR PK. - RT. 4 

48 'CHAPEL HILL NC 27514 (919) -967-5193 

59 CLEAR 28: DEFINT ft-Z: DIN T(1888) K=8: ST=22898: N=ST+4 

68 INPUT'NEM STARTING NUMBER"; S: INPUT" INCREHEMTM # 

78 'COLLECT (IN ARRAY T) LINE REFERENCES AND THEIR LOCATIONS 

88 'ZERO POINTER NARKS PROGRAM END (E IS ITS LOCATION) 

98 P=PEEK(N): IF P*8 THEN IF PEEK(N*l)«fEEK(N*2>=8 THEN E=N*2: G0T0218: ELSE M=N*5: G0T098 

180 'LOOK FOR GOTO. GOSUB. THEN, ELSE ABBREVIATIONS 

118 IFP0141 THEN IF P0145 THEN IF P0282 THEN IF P0149 THEN IF P0159 THEN N=N*1: G0T098 

128 'SKIP SPACES BEFOkZ NUMBERS 

138 IMH1: IF PEEK(N)«32 THEN 138 

148 IF (PEEK(N)>57) OR (PEEK(NX48) THEN 98: '(NOT LINE NUMBER) 

158 A$*"": FOR L«8 TO 5: A*=A$+CHR$(PEEK(NH.)): NEXT 

168 T(H)«VAL(A»): T(M*1)=N: H=H*2 

178 'CHECK FOR COMPUTED GOTO/GOSUB 

188 FOR L=i TO 28: P=PEEK(N+L) 

185 IFP=32THENNEXTELSEIFT057THEN98ELSEIFPM4THENN^ 

198 STOP: 'SOMETHING WRONG HITH TEXT IF HE REACH THIS POINT 

288 'NOW CHANGE LINE NUMBERS 

218 N*S-I : L«ST+2 

228 N-N+I: NH=N/256: NL=N-256*NH: P=PEEK(L) 

238 'PUT NEN # IN LINE'S NUMBER FIELD AND CHANGE ALL REFERENCES 

248 '(IN • TABLE) TO THE NEW NUMBER (NEGATIVE, SO THEY DON'T 

258 'GET CHANGED AGAIN) 

268 TG^+256*PEtt(L+i):P0KELNL:P0KR+LNH:FC«R^0HSTEre^ 

278 L<*1 

288 'SKIP TO END OF LINE (3 ZEROES HARK PROGRAM END) 

298 L=L*1: IF PEEK(L) THEN 298 ELSE IF PEEK(L*1)*PEEK(L*2) THEN L=L+3: GOTO 228 

388 'NOW CHANGE ALL REFERENCES PROGRAM IS MOVED DOWN 256 BYTES 

318 'TO ALLOW FOR EXPANSION IF NEW NUMBERS HAVE MORE DIGITS 

328 L=ST: H=8: D=t-256 

336 IF L>£ THEN 398 ELSE IF T(N*l)OL THEN POKE D,PEEK(L): L=L+1: D=D+1: GOTO 338 

346 A$=HID*(STR*(T(H)),2): H=H+2: FOR R=l TO LEN(A$): POKE D,ASC(NID*(A$,R,i» D=D+1: NEXT 

358 IA*i: IF (PEEK(L)>47) AND (PEEK(L><58) THEN 358 ELSE 338 

368 'FINALLY ADJUST POINTERS (USR CALLS ROM SUBROUTINE AT 6984, 

378 'WHICH FIXES UP LINE POINTERS). THIS LINE MUST NOT BE 

388 'ENTERED AS SEPARATE LINES OR CONTROL GETS LOST 

398 HH=0/256: POKE 21743,8: POKE 16548,248: POKE 16549.84: PRINT'TYPE:" 

488 PRINTTAB(18); "POKE 16633, "; D=256*HH:PRINTTAB(18); "POKE 16634, ", HH 

410 PRINTTAB(18)> "CLEAR" POKE 16527,26:P0KE 16526. 248 :L=USR(8) 



1 'HERE'S fl SIMPLE BUT EFFECTIVE KEYBOARD DEBOUNCER FOR 

2 'LEVEL 2: IT INSERTS fl SHORT DELflV LOOP INTO THE ROM 

3 'KEYBOARD SCAN (THE 7TH DATA ITEM CONTROLS DELflV LENGTH) 

5 ' H. PHELPS GATES 

6 ' 6 CRESTWOOD TR. PK. - RT. 4 

7 ' CHAPEL HILL, NC 27514 

8 ' (919) -967-5133 

10 FOR N=16480 TO 16492. READ K: POKE N, K: NEXT 

48 FOR N=16435 TO 16437: READ K: POKE N, K : NEXT 

70 POKE 16405,9 

88 DATA 205, 227, 3, 183, 200, 14, 20, 16, 254, 13, 32, 251, 201, 195, 96, 64 

30 NEW 'RUN PROGRAM AT POWER-UP. . . THE DELflV REMAINS AFTER VOU 

100 'ERASE THE PROGRAM. (I DON'T THINK THIS WILL WORK WITH 

110 "THE DISK - IT "STEALS" SPACE NEEDED BV DOS) 
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